Unit BSessionUnit;

{$mode objfpc}{$H+}

Interface

Uses
  Classes, SysUtils, BDojoSessionUnit;

Type

{ BSessionClass }

 BSessionClass = Class(BDojoSessionClass)
  Protected
    Function ProcessRootRequest: BDojoObjectClass; override;
    Function Clone: TObject; override;
  Public
End;

Implementation

Uses
  BFormMainUnit;

{ BSessionClass }

Function BSessionClass.ProcessRootRequest: BDojoObjectClass;
Begin
  Result := BFormMainClass.Build(Self);
End;

Function BSessionClass.Clone: TObject;
Var
  aSession: BSessionClass;
Begin
  aSession := BSessionClass.Build;
  aSession.Title := 'Datagrid1 example';
  Result := aSession;
End;

End.

